CLS

'Create the new worst case antenna files

PRINT
INPUT "Enter disk letter for the system data (e.g., C)"; SysDataDrive$
PRINT
PRINT "INPUT THE FOLDER NAME (e.g.,Working\LA) "
PRINT "C:\ in front of folder name is implied. "
PRINT "Output files will appear in this folder."
INPUT TOPFOLDER$
PRINT
ROOTFOLDER$ = SysDataDrive$ + ":\" + TOPFOLDER$ + "\"
PRINT
PRINT "INPUT PATHS FILE NAME (e.g., FileList) "
PRINT ".CSV file name extension is implied. "
INPUT PATHSFILE$
PRINT

InputFileList$ = ROOTFOLDER$ + PATHSFILE$ + ".CSV"
OPEN InputFileList$ FOR INPUT AS #1

DO UNTIL EOF(1) = -1
IF INKEY$ <> "" THEN GOTO 999

INPUT #1, File$
File$ = LTRIM$(RTRIM$(File$))
FileSize& = LEN(File$)
NameSize& = FileSize& -5
FileName$ = LEFT$(File$, NameSize&) + "B"
NewFile1$ = FileName$ + ".CSV"
WCFileName$ = LEFT$(File$, (FileSize& - 11)) + "-WC"
WCFileName$ = WCFileName$ + ".CSV"

INPUT #1, File$
File$ = LTRIM$(RTRIM$(File$))
FileSize& = LEN(File$)
NameSize& = FileSize& - 5
FileName$ = LEFT$(File$, NameSize&) + "B"
NewFile2$ = FileName$ + ".CSV"

INPUT #1, File$
File$ = LTRIM$(RTRIM$(File$))
FileSize& = LEN(File$)
NameSize& = FileSize& - 5
FileName$ = LEFT$(File$, NameSize&) + "B"
NewFile3$ = FileName$ + ".CSV"

INPUT #1, File$
File$ = LTRIM$(RTRIM$(File$))
FileSize& = LEN(File$)
NameSize& = FileSize& - 5
FileName$ = LEFT$(File$, NameSize&) + "B"
NewFile4$ = FileName$ + ".CSV"

OPEN ROOTFOLDER$ + NewFile1$ FOR INPUT AS #11
OPEN ROOTFOLDER$ + NewFile2$ FOR INPUT AS #12
OPEN ROOTFOLDER$ + NewFile3$ FOR INPUT AS #13
OPEN ROOTFOLDER$ + NewFile4$ FOR INPUT AS #14
OPEN ROOTFOLDER$ + WCFileName$ FOR OUTPUT AS #15
'OPEN ROOTFOLDER$ + "Test.csv" FOR OUTPUT AS #16

PRINT WCFileName$

FOR I& = 0 TO 1800

    INPUT #11, X1$, Y1$
    INPUT #12, X2$, Y2$
    INPUT #13, X3$, Y3$
    INPUT #14, X4$, Y4$

    X1$ = LTRIM$(RTRIM$(X1$))
    Y1$ = LTRIM$(RTRIM$(Y1$))
    X2$ = LTRIM$(RTRIM$(X2$))
    Y2$ = LTRIM$(RTRIM$(Y2$))
    X3$ = LTRIM$(RTRIM$(X3$))
    Y3$ = LTRIM$(RTRIM$(Y3$))
    X4$ = LTRIM$(RTRIM$(X4$))
    Y4$ = LTRIM$(RTRIM$(Y4$))

Flag& = 0
IF X1$ <> X2$ THEN Flag& = 1
IF X1$ <> X3$ THEN Flag& = 1
IF X1$ <> X4$ THEN Flag& = 1
IF Flag& = 1 THEN
PRINT "X values are not the same."
GOTO 999
END IF

    TheXResult$ = X1$
    TheYResult$ = Y1$
    IF VAL(Y2$) > VAL(TheYResult$) THEN TheYResult$ = Y2$
    IF VAL(Y3$) > VAL(TheYResult$) THEN TheYResult$ = Y3$
    IF VAL(Y4$) > VAL(TheYResult$) THEN TheYResult$ = Y4$

    PRINT #15, TheXResult$ + "," + TheYResult$
    'PRINT #16, TheXResult$ + "," + Y1$ + "," + Y2$ + "," + Y3$ + "," + Y4$ + "," + TheYResult$

NEXT I&

CLOSE #11
CLOSE #12
CLOSE #13
CLOSE #14
CLOSE #15
'CLOSE #16

LOOP   '1

999 CLOSE

END

'-------------------------------------------------
